text1 = "China's Jade Rabbit moon rover has endured a
long lunar night but is still malfunctioning, state media said
on Thursday, after technical problems last month cast uncertainty
over the country's first moon landing."
text2 = "Jade Rabbit, named after a lunar goddess in
traditional Chinese mythology, landed to domestic 
fanfare in mid-December, on a mission to do geological
surveys and hunt natural resources."

text<- "China's Jade Rabbit moon rover has endured a
long lunar night but is still malfunctioning, state media said
on Thursday, after technical problems last month cast uncertainty
over the country's first moon landing.Jade Rabbit, named after a lunar goddess in
traditional Chinese mythology, landed to domestic 
fanfare in mid-December, on a mission to do geological
surveys and hunt natural resources."

nchar(text1)
nchar(text)
t<- substring(text, seq(1,397,by=1),seq(1,397,by=1))
text3<-t[!duplicated(t)]
length(text3)
t
